home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / share / m17n / ko-han2.mim < prev    next >
Text File  |  2009-04-29  |  11KB  |  334 lines
  1. ;; ko-han2.mim -- Input method for Korean Hangul
  2. ;; Copyright (C) 2003, 2004
  3. ;;   National Institute of Advanced Industrial Science and Technology (AIST)
  4. ;;   Registration Number H15PRO112
  5.  
  6. ;; This file is part of the m17n database; a sub-part of the m17n
  7. ;; library.
  8.  
  9. ;; The m17n library is free software; you can redistribute it and/or
  10. ;; modify it under the terms of the GNU Lesser General Public License
  11. ;; as published by the Free Software Foundation; either version 2.1 of
  12. ;; the License, or (at your option) any later version.
  13.  
  14. ;; The m17n library is distributed in the hope that it will be useful,
  15. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17. ;; Lesser General Public License for more details.
  18.  
  19. ;; You should have received a copy of the GNU Lesser General Public
  20. ;; License along with the m17n library; if not, write to the Free
  21. ;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  22. ;; Boston, MA 02110-1301, USA.
  23.  
  24. ;;; @latexonly
  25. ;;; Hangul input method with 2-bul style.
  26. ;;; @endlatexonly
  27. ;;; @htmlonly
  28. ;;; Hangul input method with 2δ▓î∞ï¥.
  29. ;;; This input method uses this keyboard layout:
  30. ;;; <table border="1" cellspacing="0" cellpadding=="0">
  31. ;;; ||KEY: |r |R |s |e |E |f |a |q |Q |t |T |d |w |W |c |z |x |v |g
  32. ;;;        |k |i |j |p |P |u |h |y |n |b |m |l |o |O ||
  33. ;;; ||φò£Ω╕Ç:|πä▒|πä▓|πä┤|πä╖|πä╕|πä╣|πàü|πàé|πàâ|πàà|πàå|πàç|πàê|πàë|πàè|πàï|πàî|πàì|πàÄ
  34. ;;;        |πàÅ|πàæ|πàô|πàö|πàû|πàò|πàù|πà¢|πà£|πàá|πàí|πàú|πàÉ|πàÆ||
  35. ;;; </table>
  36. ;;; @endhtmlonly
  37.  
  38. (input-method ko han2)
  39.  
  40. (description
  41.  "Hangul input method with 2δ▓î∞ï¥.
  42. This input method uses this keyboard layout:
  43.   KEY:    r R s e E f a q Q t T d w W c z x v g k i j p P u h y n b m l o O
  44.   φò£Ω╕Ç:πä▒πä▓πä┤πä╖πä╕πä╣πàüπàéπàâπààπàåπàçπàêπàëπàèπàïπàîπàìπàÄπàÅπàæπàôπàöπàûπàòπàùπà¢πà£πàáπàíπàúπàÉπàÆ
  45. ")
  46.  
  47. (title "φò£2")
  48.  
  49. (macro
  50.  (compose
  51.   ;; Convert Jamo sequence LV[T] into a precomposed character.
  52.   ;; See the Unicode Standard Version 3.0, Section 3.11.
  53.   (> L 0
  54.      ((set LIndex L) (sub LIndex 0x1100)
  55.       (set VIndex V) (sub VIndex 0x1161)
  56.       (set TIndex T) (sub TIndex 0x11A7)
  57.       ;; S = (LIndex * VCount + Vindex) * TCount + TIndex + SBase
  58.       (set S LIndex)
  59.       (mul S 21) ;; VCount
  60.       (add S VIndex)
  61.       (mul S 28) ;; TCount
  62.       (add S TIndex)
  63.       (add S 0xAC00) ;; SBase
  64.       (delete @<)
  65.       (insert S)))))
  66.  
  67. (map
  68.  (L-or-T-head
  69.   ("q") ("Q") ("w") ("W") ("e") ("E") ("r") ("R") ("t") ("T")
  70.   ("a") ("s") ("S") ("d") ("D") ("f") ("F") ("g") ("G")
  71.   ("z") ("x") ("c") ("C") ("v"))
  72.  
  73.  (L-or-T
  74.   ;; Set L1 to CHOSEONG, T to JONGSEONG.
  75.   ("r" (set L1 ?ßäÇ) (set T ?ßå¿) ?πä▒ (compose))
  76.   ("R" (set L1 ?ßäü) (set T ?ßå⌐) ?πä▓ (compose))
  77.   ("s" (set L1 ?ßäé) (set T ?ßå½) ?πä┤ (compose))
  78.   ("e" (set L1 ?ßäâ) (set T ?ßå«) ?πä╖ (compose))
  79.   ("f" (set L1 ?ßäà) (set T ?ßå») ?πä╣ (compose))
  80.   ("a" (set L1 ?ßäå) (set T ?ßå╖) ?πàü (compose))
  81.   ("q" (set L1 ?ßäç) (set T ?ßå╕) ?πàé (compose))
  82.   ("t" (set L1 ?ßäë) (set T ?ßå║) ?πàà (compose))
  83.   ("T" (set L1 ?ßäè) (set T ?ßå╗) ?πàå (compose))
  84.   ("d" (set L1 ?ßäï) (set T ?ßå╝) ?πàç (compose))
  85.   ("w" (set L1 ?ßäî) (set T ?ßå╜) ?πàê (compose))
  86.   ("c" (set L1 ?ßäÄ) (set T ?ßå╛) ?πàè (compose))
  87.   ("z" (set L1 ?ßäÅ) (set T ?ßå┐) ?πàï (compose))
  88.   ("x" (set L1 ?ßäÉ) (set T ?ßçÇ) ?πàî (compose))
  89.   ("v" (set L1 ?ßäæ) (set T ?ßçü) ?πàì (compose))
  90.   ("g" (set L1 ?ßäÆ) (set T ?ßçé) ?πàÄ (compose))
  91.   ("sr" (set L1 ?ßäô) (set T ?ßçà) ?ßäô (compose))
  92.   ("se" (set L1 ?ßäò) (set T ?ßçå) ?πઠ(compose))
  93.   ("er" (set L1 ?ßäù) (set T ?ßçè) ?ßäù (compose))
  94.   ("fs" (set L1 ?ßäÿ) (set T ?ßçì) ?ßäÿ (compose))
  95.   ("F" (set L1 ?ßäÖ) (set T ?ßçÉ) ?ßäÖ (compose))
  96.   ("fg" (set L1 ?ßäÜ) (set T ?ßå╢) ?πàÇ (compose))
  97.   ("aq" (set L1 ?ßä£) (set T ?ßç£) ?πà« (compose))
  98.   ("ad" (set L1 ?ßä¥) (set T ?ßçó) ?πà▒ (compose))
  99.   ("qt" (set L1 ?ßäí) (set T ?ßå╣) ?πàä (compose))
  100.   ("qv" (set L1 ?ßä¬) (set T ?ßçñ) ?ß䬠(compose))
  101.   ("qd" (set L1 ?ßä½) (set T ?ßçª) ?πà╕ (compose))
  102.   ("tr" (set L1 ?ßä¡) (set T ?ßçº) ?πà║ (compose))
  103.   ("te" (set L1 ?ßä») (set T ?ßç¿) ?πà╝ (compose))
  104.   ("tf" (set L1 ?ßä░) (set T ?ßç⌐) ?ßä░ (compose))
  105.   ("tq" (set L1 ?ßä▓) (set T ?ßç¬) ?πà╜ (compose))
  106.   ("t/" (set L1 ?ßàÇ) (set T ?ßç½) ?πà┐ (compose))
  107.   ("dr" (set L1 ?ßàü) (set T ?ßç¼) ?ßàü (compose))
  108.   ("dt" (set L1 ?ßàà) (set T ?ßç▒) ?πåé (compose))
  109.   ("dt/" (set L1 ?ßàå) (set T ?ßç▓) ?πåâ (compose))
  110.   ("d/" (set L1 ?ßàî) (set T ?ßç░) ?πåü (compose))
  111.   ("vq" (set L1 ?ßàû) (set T ?ßç│) ?ßàû (compose))
  112.   ("vd" (set L1 ?ßàù) (set T ?ßç┤) ?πåä (compose))
  113.   ("g/" (set L1 ?ßàÖ) (set T ?ßç╣) ?πåå (compose)))
  114.  
  115.  (L
  116.   ;; Set L to CHOSEONG.
  117.   ("E" (set L ?ßää) ?πä╕)
  118.   ("Q" (set L ?ßäê) ?πàâ)
  119.   ("W" (set L ?ßäì) ?πàë)
  120.   ("S" (set L ?ßäö) ?πàÑ)
  121.   ("sq" (set L ?ßäû) ?ßäû)
  122.   ("fd" (set L ?ßä¢) ?ßä¢)
  123.   ("qr" (set L ?ßä₧) ?πà▓)
  124.   ("qs" (set L ?ßäƒ) ?ßäƒ)
  125.   ("qe" (set L ?ßäá) ?πà│)
  126.   ("qtr" (set L ?ßäó) ?πà┤)
  127.   ("qte" (set L ?ßäú) ?πà╡)
  128.   ("qtq" (set L ?ßäñ) ?ßäñ)
  129.   ("qtt" (set L ?ßäÑ) ?ßäÑ)
  130.   ("qtw" (set L ?ßäª) ?ßäª)
  131.   ("qw" (set L ?ßäº) ?πà╢)
  132.   ("qc" (set L ?ßä¿) ?ßä¿)
  133.   ("qx" (set L ?ßä⌐) ?πà╖)
  134.   ("Qd" (set L ?ßä¼) ?πà╣)
  135.   ("ts" (set L ?ßä«) ?πà╗)
  136.   ("ta" (set L ?ßä▒) ?ßä▒)
  137.   ("tqr" (set L ?ßä│) ?ßä│)
  138.   ("tT" (set L ?ßä┤) ?ßä┤)
  139.   ("td" (set L ?ßä╡) ?ßä╡)
  140.   ("tw" (set L ?ßä╢) ?πà╛)
  141.   ("tc" (set L ?ßä╖) ?ßä╖)
  142.   ("tz" (set L ?ßä╕) ?ßä╕)
  143.   ("tx" (set L ?ßä╣) ?ßä╣)
  144.   ("tv" (set L ?ßä║) ?ßä║)
  145.   ("tg" (set L ?ßä╗) ?ßä╗)
  146.   ("tt" (set L ?ßä╝) ?ßä╝)
  147.   ("TT" (set L ?ßä╜) ?ßä╜)
  148.   ("tt/" (set L ?ßä╛) ?ßä╛)
  149.   ("TT/'" (set L ?ßä┐) ?ßä┐)
  150.   ("ds" (set L ?ßàé) ?ßàé)
  151.   ("da" (set L ?ßàâ) ?ßàâ)
  152.   ("dq" (set L ?ßàä) ?ßàä)
  153.   ("D" (set L ?ßàç) ?πåÇ)
  154.   ("dw" (set L ?ßàê) ?ßàê)
  155.   ("dc" (set L ?ßàë) ?ßàë)
  156.   ("dx" (set L ?ßàè) ?ßàè)
  157.   ("dv" (set L ?ßàï) ?ßàï)
  158.   ("wd" (set L ?ßàì) ?ßàì)
  159.   ("ww" (set L ?ßàÄ) ?ßàÄ)
  160.   ("WW" (set L ?ßàÅ) ?ßàÅ)
  161.   ("ww/" (set L ?ßàÉ) ?ßàÉ)
  162.   ("WW/" (set L ?ßàæ) ?ßàæ)
  163.   ("cz" (set L ?ßàÆ) ?ßàÆ)
  164.   ("cg" (set L ?ßàô) ?ßàô)
  165.   ("cc" (set L ?ßàö) ?ßàö)
  166.   ("cc/" (set L ?ßàò) ?ßàò)
  167.   ("G" (set L ?ßàÿ) ?πåà)
  168.   ("C" (set L ?ßàƒ) ?ßàƒ))
  169.  
  170.  (V-head
  171.   ("y") ("u") ("i") ("o") ("p") ("O") ("P")
  172.   ("h") ("j") ("k") ("K") ("l")
  173.   ("b") ("n") ("m"))
  174.  
  175.  (V
  176.   ;; Set V to JUNGSEONG.
  177.   ("k" (set V ?ßàí) ?πàÅ (compose))
  178.   ("o" (set V ?ßàó) ?πàÉ (compose))
  179.   ("i" (set V ?ßàú) ?πàæ (compose))
  180.   ("O" (set V ?ßàñ) ?πàÆ (compose))
  181.   ("j" (set V ?ßàÑ) ?πàô (compose))
  182.   ("p" (set V ?ßàª) ?πàö (compose))
  183.   ("u" (set V ?ßàº) ?πàò (compose))
  184.   ("P" (set V ?ßà¿) ?πàû (compose))
  185.   ("h" (set V ?ßà⌐) ?πàù (compose))
  186.   ("hk" (set V ?ßà¬) ?πàÿ (compose))
  187.   ("ho" (set V ?ßà½) ?πàÖ (compose))
  188.   ("hl" (set V ?ßà¼) ?πàÜ (compose))
  189.   ("y" (set V ?ßà¡) ?πࢠ(compose))
  190.   ("n" (set V ?ßà«) ?π࣠(compose))
  191.   ("nj" (set V ?ßà») ?πॠ(compose))
  192.   ("np" (set V ?ßà░) ?πà₧ (compose))
  193.   ("nl" (set V ?ßà▒) ?πàƒ (compose))
  194.   ("b" (set V ?ßà▓) ?πàá (compose))
  195.   ("m" (set V ?ßà│) ?πàí (compose))
  196.   ("ml" (set V ?ßà┤) ?πàó (compose))
  197.   ("l" (set V ?ßà╡) ?πàú (compose))
  198.   ("kh" (set V ?ßà╢) ?ßà╢ (compose))
  199.   ("kn" (set V ?ßà╖) ?ßà╖ (compose))
  200.   ("ih" (set V ?ßà╕) ?ßà╕ (compose))
  201.   ("iy" (set V ?ßà╣) ?ßà╣ (compose))
  202.   ("jh" (set V ?ßà║) ?ßà║ (compose))
  203.   ("jn" (set V ?ßà╗) ?ßà╗ (compose))
  204.   ("jm" (set V ?ßà╝) ?ßà╝ (compose))
  205.   ("uh" (set V ?ßà╜) ?ßà╜ (compose))
  206.   ("un" (set V ?ßà╛) ?ßà╛ (compose))
  207.   ("hj" (set V ?ßà┐) ?ßà┐ (compose))
  208.   ("hp" (set V ?ßåÇ) ?ßåÇ (compose))
  209.   ("hP" (set V ?ßåü) ?ßåü (compose))
  210.   ("hh" (set V ?ßåé) ?ßåé (compose))
  211.   ("hn" (set V ?ßåâ) ?ßåâ (compose))
  212.   ("yi" (set V ?ßåä) ?πåç (compose))
  213.   ("yO" (set V ?ßåà) ?πåê (compose))
  214.   ("yu" (set V ?ßåå) ?ßåå (compose))
  215.   ("yh" (set V ?ßåç) ?ßåç (compose))
  216.   ("yl" (set V ?ßåê) ?πåë (compose))
  217.   ("nk" (set V ?ßåë) ?ßåë (compose))
  218.   ("no" (set V ?ßåè) ?ßåè (compose))
  219.   ("njm" (set V ?ßåï) ?ßåï (compose))
  220.   ("nu" (set V ?ßåî) ?ßåî (compose))
  221.   ("nn" (set V ?ßåì) ?ßåì (compose))
  222.   ("bk" (set V ?ßåÄ) ?ßåÄ (compose))
  223.   ("bj" (set V ?ßåÅ) ?ßåÅ (compose))
  224.   ("bp" (set V ?ßåÉ) ?ßåÉ (compose))
  225.   ("bu" (set V ?ßåæ) ?πåè (compose))
  226.   ("bP" (set V ?ßåÆ) ?πåï (compose))
  227.   ("bn" (set V ?ßåô) ?ßåô (compose))
  228.   ("bl" (set V ?ßåö) ?πåî (compose))
  229.   ("mn" (set V ?ßåò) ?ßåò (compose))
  230.   ("mm" (set V ?ßåû) ?ßåû (compose))
  231.   ("mln" (set V ?ßåù) ?ßåù (compose))
  232.   ("lk" (set V ?ßåÿ) ?ßåÿ (compose))
  233.   ("li" (set V ?ßåÖ) ?ßåÖ (compose))
  234.   ("lh" (set V ?ßåÜ) ?ßåÜ (compose))
  235.   ("ln" (set V ?ßå¢) ?ß墠(compose))
  236.   ("lm" (set V ?ßå£) ?ß壠(compose))
  237.   ("lK" (set V ?ßå¥) ?ß奠(compose))
  238.   ("K" (set V ?ßå₧) ?ßå₧ (compose))
  239.   ("Kj" (set V ?ßåƒ) ?ß僠(compose))
  240.   ("Kn" (set V ?ßåá) ?ßåá (compose))
  241.   ("Kl" (set V ?ßåí) ?ßåí (compose))
  242.   ("KK" (set V ?ßåó) ?ßåó (compose)))
  243.  
  244.  (T
  245.   ;; Set T to JONGSEONG.
  246.   ("rt" (set T ?ßå¬) ?πä│ (compose))
  247.   ("sw" (set T ?ßå¼) ?ßå¼ (compose))
  248.   ("sg" (set T ?ßå¡) ?ßå¡ (compose))
  249.   ("fr" (set T ?ßå░) ?πä║ (compose))
  250.   ("fa" (set T ?ßå▒) ?πä╗ (compose))
  251.   ("fq" (set T ?ßå▓) ?πä╝ (compose))
  252.   ("ft" (set T ?ßå│) ?πä╜ (compose))
  253.   ("fx" (set T ?ßå┤) ?πä╛ (compose))
  254.   ("fv" (set T ?ßå╡) ?πä┐ (compose))
  255.   ("rf" (set T ?ßçâ) ?ßçâ (compose))
  256.   ("rtr" (set T ?ßçä) ?ßçä (compose))
  257.   ("st" (set T ?ßçç) ?πຠ(compose))
  258.   ("st/" (set T ?ßçê) ?πà¿ (compose))
  259.   ("sx" (set T ?ßçë) ?ßçë (compose))
  260.   ("ef" (set T ?ßçï) ?ßçï (compose))
  261.   ("frt" (set T ?ßçî) ?ßçî (compose))
  262.   ("fe" (set T ?ßçÄ) ?πଠ(compose))
  263.   ("feg" (set T ?ßçÅ) ?ßçÅ (compose))
  264.   ("far" (set T ?ßçæ) ?ßçæ (compose))
  265.   ("fat" (set T ?ßçÆ) ?ßçÆ (compose))
  266.   ("fqt" (set T ?ßçô) ?πའ(compose))
  267.   ("fqg" (set T ?ßçö) ?ßçö (compose))
  268.   ("fqd" (set T ?ßçò) ?ßçò (compose))
  269.   ("ftt" (set T ?ßçû) ?ßçû (compose))
  270.   ("ft/" (set T ?ßçù) ?π༠(compose))
  271.   ("fz" (set T ?ßçÿ) ?ßçÿ (compose))
  272.   ("fMd" (set T ?ßçÖ) ?πà¡ (compose))
  273.   ("ar" (set T ?ßçÜ) ?ßçÜ (compose))
  274.   ("af" (set T ?ßç¢) ?ß碠(compose))
  275.   ("at" (set T ?ßç¥) ?πà» (compose))
  276.   ("aT" (set T ?ßç₧) ?ßç₧ (compose))
  277.   ("at/" (set T ?ßçƒ) ?πà░ (compose))
  278.   ("ac" (set T ?ßçá) ?ßçá (compose))
  279.   ("ag" (set T ?ßçí) ?ßçí (compose))
  280.   ("qf" (set T ?ßçú) ?ßçú (compose))
  281.   ("qg" (set T ?ßçÑ) ?ßçÑ (compose))
  282.   ("dR" (set T ?ßç¡) ?ßç¡ (compose))
  283.   ("dt/" (set T ?ßç«) ?πåâ (compose))
  284.   ("dz" (set T ?ßç») ?ßç» (compose))
  285.   ("gs" (set T ?ßç╡) ?ßç╡ (compose))
  286.   ("gf" (set T ?ßç╢) ?ßç╢ (compose))
  287.   ("ga" (set T ?ßç╖) ?ßç╖ (compose))
  288.   ("gq" (set T ?ßç╕) ?ßç╕ (compose)))
  289.  
  290.  (special
  291.   ("J" (set V ?ßàá) ?ßàá (compose)))
  292.  
  293.  (backspace
  294.   ((BackSpace) (cond ((> @@ 1) (undo)) (1 (unhandle))))))
  295.  
  296. (state
  297.  (init
  298.   ;; This is to suppress compose action.
  299.   (t (set L 0))
  300.   (L-or-T (set L L1) (set T 0x11A7) (shift state-L))
  301.   (L (set T 0x11A7) (shift state-L))
  302.   (V)
  303.   (T)
  304.   (special)
  305.   (backspace))
  306.  (state-L
  307.   (V (shift state-LV))
  308.   (backspace))
  309.  (state-LV
  310.   (L-or-T (shift state-LVL-or-LVT))
  311.   (T)
  312.   (backspace))
  313.  (state-LVL-or-LVT
  314.   (L-or-T-head (delete @<) (pushback 0) (set L 0) (shift state-fix-LVT))
  315.   (V-head (delete @<) (pushback 0) (set L 0) (shift state-fix-LV))
  316.   (backspace))
  317.  (state-fix-LVT
  318.   (L-or-T (set L L1) (set T 0x11A7) (shift state-fix-LVT-2))
  319.   (L (set T 0x11A7) (shift state-fix-LVT-2)))
  320.  (state-fix-LVT-2
  321.   (V (shift state-fix-LVT-3)))
  322.  (state-fix-LVT-3
  323.   (L-or-T (shift init)))
  324.  (state-fix-LV
  325.   (L-or-T (set L L1) (set T 0x11A7) (shift state-fix-LV-2))
  326.   (L (set T 0x11A7) (shift state-fix-LV-2)))
  327.  (state-fix-LV-2
  328.   (V (shift init))))
  329.  
  330. ;; Local Variables:
  331. ;; coding: utf-8
  332. ;; mode: lisp
  333. ;; End:
  334.